home *** CD-ROM | disk | FTP | other *** search
INSTALL Professional project | 1996-06-10 | 3.9 KB | 139 lines |
- /*
- * INSTALL.DAT
- * Project: GOLF Tip-A-Day
- * Version: 1.25
- * cd-rom version
- */
-
- @DefineProject
- @Name = "GOLF Tip-A-Day"
- @Version = "1.25"
- @Subdir = "\\GOLFTIPS"
- @OutDrive = Z
- @EndProject
-
- @DefineVars
- @Qstring @PkgType = "BOX"
- @Integer @Blue = @RGB(0,0,255) //DEFINE COLOR BLUE
- @Integer @Black = @RGB(0,0,0) //DEFINE COLOR BLACK
- @EndVars
-
- @BackgroundMode(3,@Blue,@Black)
- @Display
- @Cls
-
- Congratulations on your purchase of @Name!
-
- This program will now install @Name
- to your hard disk drive and verify the integrity
- of the CD-ROM disk. You may press the [Esc] key
- at any time to abort the installation.
- @Pause
- @EndDisplay
-
- @PkgType = @GetINI ("COSMI CDSETUP", "PkgMethod")
-
- @GetOutDrive
- @Cls
- Select the HARD disk drive on which you wish to install your
- new copy of @Name. ie. "Drive C:"
-
-
-
-
-
- @Suppress(0, 1)
- Use the [CURSOR] to highlight a drive letter. Press [ENTER]
- to select that drive.
- @EndOutDrive
-
- @DefineVars
-
- @Qstring @Item1 = "@OutDrive:\\@Subdir\\golfcldr.exe, @Name,
- @OutDrive:\\@Subdir\\golfcldr.exe"
- @Qstring @Item2 = "@OutDrive:\\@Subdir\\golfcal.hlp, @Name Help,
- @OutDrive:\\@Subdir\\golfcal.hlp"
- @Qstring @Item3 = "@OutDrive:\\@Subdir\\gtadman.wri, @Name Manual,
- @OutDrive:\\@Subdir\\gtadman.wri"
-
- @Qstring @Item4 = "@OutDrive:\\@Subdir\\walls.exe, Walls,
- @OutDrive:\\@Subdir\\walls.exe"
- @Qstring @Item5 = "@OutDrive:\\@Subdir\\walls.wri, Walls Manual,
- @OutDrive:\\@Subdir\\walls.wri"
-
-
- @EndVars
-
- @DefineDisk
- @Label = "GOLFTIP Disk #1"
- @BeginLib 779.001
- @F GOLFCAL.ICO @S 766 @O GOLFCAL.ICO
- @F GOLFTIP.ICO @S 766 @O GOLFTIP.ICO
- @F GOLFTIPS.SCR @S 1382656 @O @WindowsDrive:\\@WindowsDir\\GOLFTIPS.SCR
- @F GOLFTIPS.INI @S 81 @O @WindowsDrive:\\@WindowsDir\\GOLFTIPS.INI
- @F TIPS.DAT @S 272161 @O TIPS.DAT
- @F GLASS.WAV @S 10952 @O GLASS.WAV
- @F TIPTITLE.PTR @S 4292 @O TIPTITLE.PTR
- @F TIPTEXT.PTR @S 4292 @O TIPTEXT.PTR
- @F SWISH.WAV @S 2088 @O SWISH.WAV
- @F SUB.WAV @S 11134 @O SUB.WAV
- @F KABOOM.WAV @S 5224 @O KABOOM.WAV
- @F SPLASH1.WAV @S 2032 @O SPLASH1.WAV
- @F SPLASH2.WAV @S 15086 @O SPLASH2.WAV
- @F PLOP.WAV @S 2400 @O PLOP.WAV
- @F PIPE.WAV @S 239540 @O PIPE.WAV
- @F BONK.WAV @S 4268 @O BONK.WAV
- @F GOLFCLDR.EXE @S 333824 @O GOLFCLDR.EXE
- @F GOLFCAL.HLP @S 12474 @O GOLFCAL.HLP
- @EndLib
- @EndDisk
-
-
- @Write("@WindowsDrive:\\@WindowsDir\\CONTROL.INI", "at", "[Screen Saver.Golf Tips]\n")
- @Write(, , "MaxChangeMinutes=4 \n")
- @Write(, , "HaskellBadness=50 \n")
- @Write(, , "TipPath=@OutDrive:\\@Subdir\\ \n")
- @Write(, , "SoundFlag=1 \n")
-
- // @Write("@WindowsDrive:\\@WindowsDir\\GOLFTIPS.INI", "wt", "[Config]\n")
- // @Write(, , "TipPath=@OutDrive:\\@Subdir\\ \n")
- // @Write(, , "ChangeMinutes=2 \n")
- // @Write(, , "HaskellBadness=48 \n")
- // @Write(, , "SoundFlag=1 \n")
-
- @Finish
-
- @If("@PkgType" == "JEWEL")
- @ProgramManager("[CreateGroup(COSMI @Name)]
- [AddItem(@Item1, 0)][AddItem(@Item2, 0)]
- [AddItem(@Item3, 0)][AddItem(@Item4, 0)]
- [AddItem(@Item5, 0)]")
- @Copy("walls.*", "@OutDrive:\\@Subdir\\*.*")
- @Copy("*.wav", "@OutDrive:\\@Subdir\\*.*")
- @Else
- @ProgramManager("[CreateGroup(COSMI @Name)]
- [AddItem(@Item1, 0)][AddItem(@Item2, 0)]
- [AddItem(@Item3, 0)][AddItem(@Item4, 0)]
- [AddItem(@Item5, 0)]")
- @Copy("walls.*", "@OutDrive:\\@Subdir\\*.*")
- @Copy("*.wav", "@OutDrive:\\@Subdir\\*.*")
- @EndIf
- @Copy("Gtadman.wri", "@OutDrive:\\@Subdir\\*.*")
-
- @ChDrive @OutDrive
- @ChDir "@SubDir"
- //delete files from cosmitmp.dir and remove that dir
- @Delete("@OutDrive:\\cosmitmp.dir\\*.*")
- @RmDir("@OutDrive:\\cosmitmp.dir")
-
- @Cls
- Installation of @Name is now finished.
-
- A New application group has been created titled COSMI.
-
-
- @Pause
- @EndFinish
-
- /* end-of-file */
-